perm filename ADDER.F4[TLC,MUS] blob sn#075965 filedate 1973-12-02 generic text, type T, neo UTF8
00100		DIMENSION X(10)
00200		Z=0
00300	101	TYPE 5
00400	5	FORMAT(' ADD, SUB, MULT OR DIV?'/)
00500		ACCEPT 6,A
00600	6	FORMAT(A1)
00700	4	TYPE 1
00800	1	FORMAT(' TYPE NUMBERS'/)
00900		ACCEPT 2,X
01000	2	FORMAT(10F)
01100		IF(A.EQ.'A')GO TO 10
01200		IF(A.EQ.'S')GO TO 20
01300		IF(A.EQ.'M')GO TO 30
01400		A=X(1)/X(2)
01500		GO TO 100
01600	20	A=X(1)-X(2)
01700		GO TO 100
01800	30	A=X(1)*X(2)
01900		GO TO 100
02000	10	A=0
02100		DO 11 K=1,10
02200	11	A=A+X(K)
02300	100	Z=Z+A
02400		TYPE 3,X,A,Z
02500	3	FORMAT(F12.3)
02600		GO TO 101
02700		END